home *** CD-ROM | disk | FTP | other *** search
/ PC World 1999 October / PCWorld_1999-10_cd1.bin / Software / Servis / X-setup / _SETUP.1 / XQ ASP Options General 1.xpl < prev    next >
Text File  |  1998-08-08  |  3KB  |  84 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 3.1"
  2. "TYPE"="6"
  3. "COUNT"="5"
  4. "UIPATH"="Internet\ASP Settings"
  5. "NAME"="General Settings (1)"
  6. "LANGUAGE"="VBScript"
  7. "TEXT 1"="Allow Session (send Cookie "ASPSessionID")"
  8. "TEXT 2"="Allow access to parent directories"
  9. "TEXT 3"="Activate buffering for all pages"
  10. "TEXT 4"="Add error-requests to eventlog"
  11. "TEXT 5"="Send detailed error-information to client"
  12. "DESCRIPTION 1"="Allow Session: By default, ASP creates as session object for every user of an ASP-Application. This requires that a cookie (ASPSessionID) is sent to the user. WARNING! If this option is disabled, it is no longer possible to use the object "Session" or use the "Session_On**" events!"
  13. "DESCRIPTION 2"="Allow access to parent directories: If this option is enabled, an ASP script can access paths above the current position (for example with the "#INCLUDE FILE" command). If it's disabled, this is not possible."
  14. "DESCRIPTION 3"="Activate buffering: By default, ASP buffers only pages, that have requested this ("Response.Buffer=True"). If this option is activated, all pages are buffered."
  15. "DESCRIPTION 4"="Add error-requests: If this option is enabled, requests that caused errors (404 for example) are written to the eventlog."
  16. "DESCRIPTION 5"="Send detailed error-information: If an error occurs in an ASP-script and this option is enabled, detailed information (like filename, linenumber and so on) are send to the client. If disabled, the client is only informed that something went wrong."
  17. "AUTHOR"="Xteq Systems"
  18. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  19. "COMMENT 1"="For more information, go to http://www.xteq.com or write to TeXHeX@gmx.net."
  20. "COMMENT 2"="Version 1.1"
  21.  
  22.  
  23. sP="HKLM\System\CurrentControlSet\Services\W3SVC\ASP\Parameters\"
  24. vASS="AllowSessionState" 'DW
  25. vBFO="BufferingOn" 'DW
  26. vEPP="EnableParentPaths" 'DW
  27. vLER="LogErrorRequests" 'DW
  28. vSEB="ScriptErrorsSentToBrowser" 'DW
  29.  
  30. Sub Plugin_Initialize 
  31.  If RegPathExists(sP) then
  32.   If RegReadValue(sp&vass)=1 then SetUIElement 1,true
  33.   If RegReadValue(sp&vepp)=1 then SetUIElement 2,true
  34.   If RegReadValue(sp&vbfo)=1 then SetUIElement 3,true
  35.   If RegReadValue(sp&vler)=1 then SetUIElement 4,true
  36.   If RegReadValue(sp&vseb)=1 then SetUIElement 5,true
  37.  else
  38.   Disable
  39.  end if
  40. End Sub
  41.  
  42. Sub Plugin_CheckData(ElementIndex)
  43. End Sub
  44.  
  45. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  46.  b=GetUIElement(1)
  47.  if b=true then
  48.   Call RegWriteValue(sp&vass,1,2)
  49.  else
  50.   Call RegWriteValue(sp&vass,0,2)
  51.  end if
  52.  
  53.  b=GetUIElement(2)
  54.  if b=true then
  55.   Call RegWriteValue(sp&vepp,1,2)
  56.  else
  57.   Call RegWriteValue(sp&vepp,0,2)
  58.  end if
  59.  
  60.  b=GetUIElement(3)
  61.  if b=true then
  62.   Call RegWriteValue(sp&vbfo,1,2)
  63.  else
  64.   Call RegWriteValue(sp&vbfo,0,2)
  65.  end if
  66.  
  67.  b=GetUIElement(4)
  68.  if b=true then
  69.   Call RegWriteValue(sp&vler,1,2)
  70.  else
  71.   Call RegWriteValue(sp&vler,0,2)
  72.  end if
  73.  
  74.  b=GetUIElement(5)
  75.  if b=true then
  76.   Call RegWriteValue(sp&vseb,1,2)
  77.  else
  78.   Call RegWriteValue(sp&vseb,0,2)
  79.  end if
  80. End Sub
  81.  
  82. Sub Plugin_Terminate 
  83. End Sub
  84.